Dit voorbeeld maakt gebruik van de instructie For Each...Next om in de Text-eigenschap van alle onderdelen in een collectie naar de aanwezigheid van de tekenreeks ôHalloö te zoeken. In het voorbeeld is MijnObject
een tekstgeoriδnteerd object van de collectie MijnCollectie
. Beide zijn algemene namen die alleen ter illustratie worden gebruikt.
Dim Found, MyObject, MyCollection
Found = False ' Initialize variable.
For Each MyObject In MyCollection ' Iterate through each element.
If MyObject.Text = "Hallo" Then ' If Text equals "Hallo".
Found = True ' Set Found to True.
Exit For ' Exit loop.
End If
Next